home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / alias.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  620 b   |  20 lines
  1.       double precision function alias(anam)
  2.       implicit double precision (a-h,o-z)
  3.       dimension anam1(14),anam2(14)
  4.       data anam1 /3hva ,3hvb ,3hccs,3hns ,3hc2 ,3hpt ,3hc4 ,
  5.      1            3hpe ,3hme ,3hpc ,3hmc ,3hps ,3hms ,3hik /
  6.       data anam2 /3hvaf,3hvar,3hcjs,3hnss,3hise,3hxti,3hisc,
  7.      1            3hvje,3hmje,3hvjc,3hmjc,3hvjs,3hmjs,3hikf/
  8. c
  9. c  this function returns the mgp equivalent of the gp parameters
  10. c  (those which apply)
  11. c
  12.       iknt=0
  13.       alias=anam
  14.    10 iknt=iknt+1
  15.       if(iknt.gt.14) return
  16.       if(anam1(iknt).ne.anam) go to 10
  17.       alias=anam2(iknt)
  18.       return
  19.       end
  20.